Tom Melly <tom### [at] tomandlucouk> wrote:
: #macro G(D,E,F)#declare I=array[3]{D,E,F}#declare B=0;triangle{#while(B<3)#declare
: C=1;#declare H=strlen(str(I[B],0,0));#while(C<=H)A[val(substr(str(I[B],0,0),C,1))]
: +#declare C=C+1;#end<-5,-2,9>#declare B=B+1;#end}#end#declare A=array[7]{x*1,x*2,x
: *4,y*1,y*2,y*4,z*1}light_source{-A[1]-A[2]-z*9 rgb 1}union{G(105,10,146)G(105,246,
: 10)G(105,56,146)G(105,1256,246)G(1256,126,220)G(22156,2216,201)pigment{rgb 1}}//TM


  Don't know if this version is less obfuscated, but at least it's shorter:

#macro G(D,E,F)#local I=array[3]{D,E,F}#local B=0;triangle{#while(
B<3)#while(I[B])A[mod(I[B],10)]+#local I[B]=div(I[B],10);#end<-5,-
2,9>#local B=B+1;#end}#end #local A=array[7]{x,x*2,x*4,y,y*2,y*4,z
}light_source{-x*6-z*9,1}mesh{G(105,10,146)G(105,246,10)G(105,56,
146)G(105,1256,246)G(1256,126,220)G(22156,2216,201)pigment{rgb 1}}//TM



-- 
#macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
],13),8)-3,10>#end blob{N(array[6]{11117333955,
7382340,3358,3900569407,970,4254934330},0)}//                     - Warp -

Post a reply to this message